$out = $ARGV[0];
chomp($out);
$in = $ARGV[1];
chomp($out);
#open(WRBUFF,"|gzip > ./TRIPLE_NEG/out_new/beagle_output1.gz");
open(WRBUFF,"|gzip > $out") or die "unable to write $out\n";
print WRBUFF "marker alleleA alleleB";
for($i=0;$i<$in;$i++)
{
	print WRBUFF " sample$i";
	print WRBUFF " sample$i";
	print WRBUFF " sample$i";
}
print WRBUFF "\n";
